home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / con_005c.zip / CONCORD.RAR / SCRIPT.RAR / BPSRATEE.SCR < prev    next >
Text File  |  1997-04-25  |  2KB  |  39 lines
  1.  
  2. ;BPSRATE.SCR (C) 1995 Alex Bonfiglioli, MegaLink Bbs - Italy : +39-51-399.599.
  3. ;FidoNet Address : 2:332/432 - InterNet Mail Address : himum@megalink.dsnet.it
  4.  
  5. ;BPSRATE.SCR is a simply script to inform the user when his BPS rate is faster
  6. ;or slowest then the previous user BPS rate. If the previous connection was
  7. ;local, or actual connection is local, nothing is displayed to the user.
  8.  
  9. ;If you like this stupid script, send me a NetMail, I will appreciate that !
  10.  
  11. Var %BPSDIFF% = NUMBER
  12. Var %BPSPERC% = NUMBER
  13.  
  14.  If ((@BPSRATE@ > @LAST_BPSRATE@) AND (@BPSRATE@ <> 0) AND (@LAST_BPSRATE@ <> 0))
  15.  
  16.    Set %BPSDIFF% = (@BPSRATE@-@LAST_BPSRATE@)
  17.    Set %BPSPERC% = ((@BPSRATE@/@LAST_BPSRATE@)*100)
  18.  
  19.    Write "^M;^M;^C14,0;C O M P L I M E N T S : ^C11,0;Last user speed was not ^C14,0;@BPSRATE@ Baud ^C11,0;!"
  20.    Write "^M;^C11,0;The poor ^C10,0;@LAST_NAME@'s^C11,0; happened at a"
  21.    Write "^M;^C14,0;@LAST_BPSRATE@ Bps^C11,0;. You are ^C14,0;%BPSDIFF% Bps faster"
  22.    Write "^M;^C11,0;with an increment of ^C14,0;%BPSPERC% % ^C11,0; ;-)) !^A;"
  23.  
  24.  End
  25.  
  26.  If ((@LAST_BPSRATE@ > @BPSRATE@) AND (@BPSRATE@ <> 0) AND (@LAST_BPSRATE@ <> 0))
  27.  
  28.    Set %BPSDIFF% = (@LAST_BPSRATE@-@BPSRATE@)
  29.    Set %BPSPERC% = ((@LAST_BPSRATE@/@BPSRATE@)*100)
  30.  
  31.    Write "^M;^M;^C11,0;Well, I though all those kind of modem self-destroyed long ago"
  32.    Write "^M;^C11,0;Do you know that your speed is just ^C14,0;@BPSRATE@ Bps ^C11,0;!?"
  33.    Write "^M;^C11,0;Last user, ^C10,0;@LAST_NAME@^C11,0;_ThE_gRaTe"
  34.    Write "^M;^C11,0;connected at ^C14,0;@LAST_BPSRATE@ Bps^C11,0;."
  35.    Write "^M;^C11,0;You are ^C14,0;%BPSDIFF% Bps ^C11,0; slower then him"
  36.    Write "^M;^C11,0;with a decrement of ^C14,0;%BPSPERC% % ^C11,0; ! ;-((^A;"
  37.  
  38.  End
  39.